home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #6 / Commodore_Disk_User_Vol.3_6_1990_-.d64 / disco strober (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  848b  |  24 lines
  1. 10 rem *****************************
  2. 20 rem ***    routine five       ***
  3. 30 rem *****************************
  4. 40 rem *** flash the screen to   ***
  5. 50 rem *** the disco beat !      ***
  6. 60 rem *****************************
  7. 70 rem *** use the normal 53280 &***
  8. 80 rem *** 53281 to change screen***
  9. 90 rem *** colours. poke 56501,  ***
  10. 100 rem *** followed by a number  ***
  11. 110 rem *** from 0-255 to change  ***
  12. 120 rem *** speed.                ***
  13. 130 rem *****************************
  14. 140 rem ***     david dewar       ***
  15. 150 rem *****************************
  16. 160 rem *look out for my demo disk/tape*
  17. 170 for t=49152 to 49186:read a:poke t,a:next t
  18. 180 data 120,169,192,141,21,3,169,13,141,20,3,88,96,169,27,141,17,208,162,208
  19. 190 data 232,208,253,200,208,248,169,11,141,17,208,76,49,234,96
  20. 200 rem *** example ***
  21. 210 poke 53280,0:poke 53281,7
  22. 220 sys 49152
  23. 230 print"[147][144]speed up the beat!"
  24.